home *** CD-ROM | disk | FTP | other *** search
/ Mastering Public Speaking / Mastering Public Speaking.iso / pc / Click Here.exe / Click Here.dxr / intro(1)_149_open.ls < prev    next >
Encoding:
Text File  |  2003-05-13  |  3.1 KB  |  58 lines
  1. global varGoingTo, varFilePath, varRateQuestionList, gRQ1, gRQ2, gRQ3, gRQ4, gRQ5, gRQ6, gRQ7, gRQ8, gRQ9, gRQ10, gRQ11, gRQ12, gRQ13, gRQ14, gRQ15, gRQ16, gRQ17, gRQ18, gRQ19, gRQ20, gRQ21, gRQ22, gRQ23, gRQ24, gRQ25, gRQ26, gRQ27, gRQ28, gRQ29, gRQ30, gRQ31, gRQ32, gRQ33, gRQ34, gRQ35, gRQ36, gRQ37, gRQ38, gRQ39, gRQ40, gRQ41, gRQ42, gRQ43, varMakeQuestionList, gMQ1, gMQ2, gMQ3, gMQ4, gMQ5, gMQ6, gMQ7, gMQ8, gMQ9, gMQ10, gMQ11, gMQ12, gMQ13, gMQ14, gMQ15, gMQ16, gMQ17, gMQ18, gMQ19, gMQ20, gMQ21, gMQ22, gMQ23, gMQ24, gMQ25, gMQ26, gMQ27, gMQ28, gMQ29, gMQ30, gMQ31, gMQ32, gMQ33, gMQ34, gMQ35, gMQ36, gMQ37, gMQ38, gMQ39, gMQ40, gMQ41, gMQ42, gMQ43, gMQ44, gMQ45, gMQ46, gMQ47, gMQ48, gMQ49, gMQ50, gMQ51, gMQ52, gMQ53, gMQ54, gMQ55, gMQ56, gMQ57, gMQ58, gMQ59, gMQ60, gMQ61, gMQ62, gMQ63, gMQ64, gMQ65, gMQ66, gMQ67, gMQ68, gMQ69, gMQ70, gMQ71, gMQ72, gMQ73, gMQ74, gMQ75, gMQ76, gMQ77, gMQ78, gMQ79, gMQ80, gMQ81, gMQ82, gMQ83, gMQ84, gMQ85, gMQ86, gMQ87, gMQ88, gMQ89, gMQ90, gMQ91, gMQ92, gMQ93, gMQ94, gMQ95, gMQ96, gMQ97, gMQ98, gMQ99, gMQ100, gMQ101, gMQ102, gMQ103, gMQ104, gMQ105, gMQ106, gMQ107, gMQ108, gMQ109, gMQ110, gMQ111, gMQ112, gMQ113
  2.  
  3. on mouseDown
  4.   fileIOobject = new(xtra("fileIO"))
  5.   filePath = fileIOobject.displayOpen()
  6.   varFilePath = filePath
  7.   fileIOobject.openFile(filePath, 0)
  8.   varTextString = fileIOobject.readFile()
  9.   repeat with i = 1 to 42
  10.     tempList = getAt(varRateQuestionList, i)
  11.     tempList2 = getAt(varRateQuestionList, i + 1)
  12.     varStartPos = offset(getAt(tempList, 1), varTextString)
  13.     varEndPos = offset(getAt(tempList2, 1), varTextString)
  14.     if varStartPos > 0 then
  15.       member(getAt(tempList, 2)).text = chars(varTextString, varStartPos + length(getAt(tempList, 1)), varEndPos - 6)
  16.     end if
  17.   end repeat
  18.   tempList = EMPTY
  19.   tempList2 = EMPTY
  20.   varStartPos = EMPTY
  21.   varEndPos = EMPTY
  22.   repeat with i = 1 to 112
  23.     tempList = getAt(varMakeQuestionList, i)
  24.     tempList2 = getAt(varMakeQuestionList, i + 1)
  25.     varStartPos = offset(getAt(tempList, 1), varTextString)
  26.     varEndPos = offset(getAt(tempList2, 1), varTextString)
  27.     if varStartPos > 0 then
  28.       member(getAt(tempList, 2)).text = chars(varTextString, varStartPos + length(getAt(tempList, 1)), varEndPos - 6)
  29.     end if
  30.   end repeat
  31.   varStartPos = EMPTY
  32.   varEndPos = EMPTY
  33.   varStartPos = offset("Taken from Speech 1.", varTextString)
  34.   varEndPos = offset("Taken from Speech 2.", varTextString) - 7
  35.   if varStartPos > 0 then
  36.     member("taketxtfld").text = chars(varTextString, varStartPos + 20, varEndPos)
  37.   end if
  38.   varStartPos = EMPTY
  39.   varEndPos = EMPTY
  40.   varStartPos = offset("Taken from Speech 2.", varTextString)
  41.   varEndPos = offset("Taken from Speech 3.", varTextString) - 7
  42.   if varStartPos > 0 then
  43.     member("taketxtfld2").text = chars(varTextString, varStartPos + 20, varEndPos)
  44.   end if
  45.   varStartPos = EMPTY
  46.   varEndPos = EMPTY
  47.   varStartPos = offset("Taken from Speech 3.", varTextString)
  48.   varEndPos = varStartPos + 500
  49.   if varStartPos > 0 then
  50.     member("taketxtfld3").text = chars(varTextString, varStartPos + 20, varEndPos)
  51.   end if
  52.   fileIOobject.closeFile()
  53.   fileIOobject = VOID
  54.   if length(varFilePath) > 0 then
  55.     go(label(string(varGoingTo)))
  56.   end if
  57. end
  58.